program prog;  //这里不能加括号，加了就报错

var
      i, k, j: integer;

begin
  k:=0;
  j:=10;
  for i := 1 to j do
    k:=k+1;
end.
